home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 65 / Tiger_Disk_065_19xx_Tiger-Crew-Disk_de_Side_B.d64 / anl. gluecksrad (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  41 lines
  1. 20 poke53280,15:poke53281,15:print"[147]";:n=1:poke53265,11
  2. 30 j$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":printj$j$;
  3. 32 print"[129] [199][204][213][197][195][203][211][210][193][196]     [193]nleitung      [211]eite 1  ";:printj$j$:print"[145]";
  4. 2001 print"[144] [199][204][213][197][195][203][211][210][193][196] ist ein [211]piel fuer [218]wei."
  5. 2002 print" [196]ie [211]pieler drehen das [210]ad wegen der"
  6. 2003 print" [208]unktzahl, dann raten sie einen [194]uch- "
  7. 2004 print" staben, um das [208]uzzle zu loesen. [197]s   "
  8. 2005 print" gibt [194]egriffe aus fuenf [203]ategorien:       "
  9. 2006 print" [208]erson, [208]latz, [196]ing, [211]pruch und [212]itel     "
  10. 2007 print" [196]rueck [198]1 zum [196]rehen und nenne dann   "
  11. 2008 print" einen [194]uchstaben.- [205]it [198]3 raetst du   "
  12. 2009 print" den [194]egriff. [194]ei  [204][207][211][197][160][193][160][212][213][210][206]  kommt"
  13. 2010 print" der andere [211]pieler dran. [215]enn das [210]ad "
  14. 2011 print" [212][201][204][212]  zeigt, verlierst du alle deine"
  15. 2012 print" bisherigen [208]unkte.                      "
  16. 2013 print" 100 [208]unkte bekommst du, wenn du den"
  17. 2014 print" [194]egriff erraetst.":poke53265,27
  18. 2015 poke198,0:wait198,1:poke198,0:gosub10000
  19. 2016 print"[147]            [214][201][197][204] [199][204][213][197][195][203]                 ";
  20. 2017 print"                                        ";
  21. 2018 print"            [194][197][201][205]  [211][208][201][197][204]                 ";
  22. 2019 print"                                        ";
  23. 2020 print"                                        ";
  24. 2021 print"                                        "
  25. 5003 print"[196]rueck <[206]> [206][207][195][200][205][193][204], <[204]> [204][193][196][197][206], <[197]> [197][206][196][197] [145]"
  26. 5005 poke2023,160:poke56295,12
  27. 5010 getg$:ifg$<>"n"andg$<>"l"andg$<>"e"then5010
  28. 5040 ifg$="n"thenrun
  29. 5050 ifg$="l"then6000
  30. 5060 ifg$="e"then print"[147]":end
  31. 5080 end
  32. 6000 printchr$(142):poke646,15
  33. 6005 print"[147]load"chr$(34)"gluecksrad*"chr$(34)",8":print"run";
  34. 6010 poke631,13:poke632,13:poke198,2:end
  35. 10000 print"[147][196][197][213][212][211][195][200][197] [194][197][193][210][194][197][201][212][213][206][199]"
  36. 10010 print"[212][160][201][160][199][160][197][160][210][160]- [195][160][210][160][197][160][215]"
  37. 10020 print"  [198][197][204][196][211][212][210][193][211][211][197]  17"
  38. 10030 print"   36391 [211][201][206][206][212][193][204]"
  39. 10040 poke198,0:wait198,1:poke198,0
  40. 10050 return
  41.